RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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AND 
!* CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Version: *v04-000' 
PEPE SESE SSS SECIS TTT TIT IT TIT TITTTTITITITIIT CSTE T TTT TIT LITTITTLITTITiTTiiTiTititiiit 
! 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


RIGHTS RESERVED. 


iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
it ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
i Y 


HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
a 
® 
= 
® 
® 
*® 
id 
' ® 
ie TRANSFERRED. : 
® 
x 
® 
* 
® 
* 
ae 
® 
® 
® 


HOUT NOTICE 


INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WIT 
SHOULD NOT IGITAL EQUIPMENT 


BE CONSTRUED AS A COMMITMENT BY DIG 


ASRS SSSASSSIO SESS ESTEE TET eT Pett rc c eric cect iit ici rir critic iti tcc iti iiitiii ts? 
' 


lee 
! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 


Macros to manipulate FIXED_STRINGS: transportable, fixed-length 
strings. 


ENVIRONMENT: Transportable BLISS 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (ibrary. 


: AUTHOR: Rich Friday 

: CREATION DATE: 1978 

: MODIFIED BY: 

: 002 KAD00002 Keith Dawson 07-Mar-1983 
i 


STRING is a structure that contains a string of an expected maximum 


' Length, plus additional locations to contain information related to the 
! status of the string. 


STRUCTURE 


Hiued_ste ings tpaet? = 
C4*2UPVAL + CHSALLOCATION(N*ZUPVAL) J 


16-SEP-1984 16:54:48.26 Page 1 


GNC 


FSPACK.REQ;1 16-SEP-1984 16:54:44.26 Page 2 


(fixed_string - XUPVAL*( 1 = I) ); 


14 
! The following Literals are names for the fields allocated above. These 
: names are not to be used by a user. 


LITERAL 
FS__FCP = 01, ! CHSPTR to first character position. 
FS__NCP = Oe. ! CHSPTR to next character position. 
FS__MAX = 05, ! Capacity of the counted string. 
FS__LEN = 04; ! Current Length. 


1+ 
: FS_ALLOCATE is used to allocate and initialize a fixed-length string. 


i 

| 

| 

MACRO 

fs_allocate (fs_name,fs_maxl) = 
fs_name:fixed string Cfs_maxl] 

INTTIAL (0, 

| 


fS_maxl, 
0) 
x; 


'¢ 
Control information is accessed via the following macros. 
MACRO 
fs_start (fs name) = 
fs_name Cfs__fcp] 


fs_next (fs_name) = 
fs_name [fs__ncp) 


fs_maxsize (fs_name) = 
s_name [fs__max] 


fs_length (fs_name) = 
fs_name C¥s__len) 


'¢ 
: FS_INiT initializes a fixed-length string to the null string. 


CRO 
fs_init (fs_name) = 
EGIN 
fs_length (fs_name) : 
fs_start (fs_name) 
fs_next (fs_name) 
END 


- oo 


HSPTR (fs_name (5)); 
fs_start Tfs_name); 


a 
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: FS_WCHAR puts a character into the fixed-length string. 


MACRO 
fs.wehar (fs_name,khar) = 


CHSWCHAR_A (khar, fs_next (fs_name)); ‘write character and advance pointer. 
fs.length (fs_name) = .fs_length (fs_name) + 1; !Bump total Length count. 


%; 


+ 
FS_RCHAR gets a character from the fixed-length string. 


MACRO 
ra.reder (fs_name,khar) = 


khar = CHSRCHAR_A (fs_next (fs_name)); !Read character and advance pointer. 
pe sangee (fs_name) =".fs_length (fs_name) - 1; !Decrement remainder count. 


End of FSPACK.REQ 
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